 

program basadamych;
uses crt;

type osoba=record imie:string; nazwisko:string; nr:byte; ma, po:byte; end;

var klasa:array[1..36] of osoba;
i:integer;
pop,key:char;

procedure dodajosobe(imie:string; nazwisko:string; nr:byte; ma:byte; po:byte);
var i:byte;
 begin
  for i:=1 to 36 do
   if klasa[i].nr=0 then break;

  begin
  klasa[i].imie:=imie;
  klasa[i].nazwisko:=nazwisko;
  klasa[i].nr:=nr;
  klasa[i].po:=po;
  klasa[i].ma:=ma;
  end;
 end;

procedure wyswietl();
var i:byte;
begin
 for i:=1 to 36 do
  if klasa[i].nr=0 then begin end
  else
  begin
   writeln(klasa[i].nr, '. ', klasa[i].imie, ' ', klasa[i].nazwisko, ' matematyka: ', klasa[i].ma, ' polski: ',klasa[i].po, ' srednia: ', (klasa[i].ma/2+klasa[i].po/2));
  end
end;

procedure menu(choose:byte);
var i:byte;
label koniec;
label next;
begin
i:=0;
writeln;writeln;
//textbackground(red);
 writeln('jakisTamDziennik v0.(0)');
textbackground(black);
while true do
begin
//if choose=i then textbackground(red);
if i=3 then break;
 case i of
     2: writeln('w wyswietl wpisy');
     1: writeln('a dodaj klasowicza');
     0: writeln('q zamknij');
 end;
textbackground(black);
inc(i);
end;
end;

procedure event(key:byte);
var im, na:string; nr, po, ma:byte;
begin
  case key of
   0: writeln('wyjscie');
   1: begin
   //dodajosobe('Artur', 'Zochniak', 34);
   // dodajosobe('Piotr', 'Maly', 18);
   writeln('podaj imie');
   readln(im);
   writeln('podaj nazwisko');
   readln(na);
   writeln('nr w dzienniku');
   readln(nr);
   writeln('ocena z matematyki');
   readln(ma);
   writeln('ocena z polskiego');
   readln(po);
  dodajosobe(im,na,nr,ma,po);
  end;
   2: wyswietl();
  end;
//  writeln('Nacisnij dowolny klawisz aby kontynuo
  //readkey;
end;

function geteventidbykey(key:char):byte;
begin
 case key of
  'q': geteventidbykey:=0;
  'a': geteventidbykey:=1;
  'w': geteventidbykey:=2;
end;
end;


BEGIN
for i:=1 to 36 do klasa[i].nr:=0;
//event(1);
repeat
menu(5);
//writeln('znak',key,'<');
key:=readkey;
event(geteventidbykey(key));
if key='q' then break;

pop:=key;
  until false;
END.